home *** CD-ROM | disk | FTP | other *** search
/ Turnbull China Bikeride / Turnbull China Bikeride - Disc 2.iso / BARNET / COMPILER / SATHER / !Sather / Library / pSather / config / pid < prev    next >
Text File  |  1996-01-17  |  877b  |  40 lines
  1. #ifndef PID_CONFIG
  2. #define PID_CONFIG
  3.  
  4. #ifdef PP
  5. #undef PP
  6. #endif
  7.  
  8. #ifdef I
  9. #undef I
  10. #endif
  11.  
  12. #ifdef E
  13. #undef E
  14. #endif
  15.  
  16. #ifdef B
  17. #undef B
  18. #endif
  19.  
  20. #define PP    no_pre,no_post
  21. #define I    import
  22. #define E    export
  23. #define B    block
  24. #define V    var "@r $$;"
  25.  
  26. -- most of the functions and macros used in this file are defined
  27. -- in am.h, the rest in pSather.h
  28. THREAD_ID_NIL:            PP,V,exec "$$=thr_no_thread();" "$$";
  29. THREAD_ID_ME:            PP,V,exec "$$=thr_ps_id();" "$$";
  30. THREAD_ID_IS_EQ:        PP,V,exec "$$=THR_SAME_ID($0,$1);" "$$";
  31. THREAD_ID_IS_LT:        PP,V,exec "$$=THR_LT($0,$1);" "$$";
  32. THREAD_ID_HASH:            PP,V,exec "$$=THR_HASH($0);" "$$";
  33. THREAD_ID_STR:            PP,var "@r $$;char $$p[30];",
  34.                    exec "thr_print_id($0,$$p);"
  35.                         "$$=(@r)rt_arr_alloc(sizeof(struct STR_struct),STR_tag,sizeof(CHAR),strlen($$p)+1);"
  36.                     "$$->asize=strlen($$p);"
  37.                     "strcpy($$->arr_part,$$p);"
  38.                     "$$";
  39. #endif
  40.